home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 May & June / rerun-1986-05-06.d64 / comma generator (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  668b  |  27 lines
  1. 100 rem
  2. 110 rem       comma generator
  3. 120 rem     version 1.2 5/18/84
  4. 130 rem        by jim allen
  5. 140 rem
  6. 150 a=679-1
  7. 160 a=a+1
  8. 170 read d:if d=0 then 190
  9. 180 poke a,d:goto 160
  10. 190 print chr$(147)tab(80)"sys679[146] to enable
  11. 200 [162]
  12. 210 [131] 120, 169, 180, 141, 20, 3
  13. 220 [131] 169, 2, 141, 21, 3, 88
  14. 230 [131] 96, 165, 197, 201, 60, 240
  15. 240 [131] 17, 162, 17, 142, 185, 2
  16. 250 [131] 201, 57, 240, 29, 162, 29
  17. 260 [131] 142, 194, 2, 76, 49, 234
  18. 270 [131] 169, 14, 141, 185, 2, 169
  19. 280 [131] 157, 141, 119, 2, 169, 44
  20. 290 [131] 141, 120, 2, 169, 2, 133
  21. 300 [131] 198, 208, 232, 169, 5, 141
  22. 310 [131] 194, 2, 169, 157, 141, 119
  23. 320 [131] 2, 162, 5, 189, 250, 2
  24. 330 [131] 157, 119, 2, 202, 208, 247
  25. 340 [131] 169, 5, 133, 198, 208, 205
  26. 350 [131] 68, 65, 84, 65, 0
  27.